home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 143 / 143side3.d64 / list low boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  690b  |  31 lines
  1. 10 if x=1 then 40
  2. 20 dv=peek(186)
  3. 25 if dv<8 then dv=8
  4. 30 x=1:load"listwedge.va",dv,1
  5. 40 poke774,91:poke775,152
  6. 50 poke 56,152:poke 55,80
  7. 60 goto 200
  8. 70 rem jiffydos users may wish to
  9. 80 rem remove line 60.
  10. 82 rem   to enter 'list wedge':
  11. 85 rem   a)  hold down shift key
  12. 90 rem   b)  hold down f1 key
  13. 100 rem  c)  release shift key
  14. 110 rem  d)  release f1 key
  15. 115 f1$="@$:?*"+chr$(13)+chr$(0)
  16. 120 f2$="list"+chr$(13)+chr$(0)
  17. 125 f3$="/"+chr$(0)
  18. 130 f4$="@t"+chr$(0)
  19. 135 f5$="^"+chr$(0)
  20. 140 f6$="_  "+chr$(34)+"@:"+chr$(0)
  21. 145 f7$="%"+chr$(0)
  22. 150 f8$="@  "+chr$(34)+"s:"+chr$(0)
  23. 155 f$=f1$+f3$+f5$+f7$+f2$+f4$+f6$+f8$
  24. 160 buf=820
  25. 165 for i=1 to len(f$)
  26. 170 poke(buf+i-1),asc(mid$(f$,i,1))
  27. 172 next
  28. 175 poke 176,buf-( 256*(int(buf/256)) )
  29. 180 poke 177,int(buf/256):poke155,0
  30. 200 clr:new
  31.